MacFormat España 24/MacFormat n. 24 (Spain)/MacFormat 24.bin/Demos/Jungle Activated!/JungleActivated Demo/jung DEMO d/00159_Mixer- Enter Frame 2.ls

Text File | 1996-10-14 | 7.5 KB | 234 lines

on enterFrame
  global gWhichSound1, gWhichSound3, gWhichSound4, gWhichSound5, gWhichSound6, gLastLoop, gWhichSound7, gWhichSound8, gWhichSound9, gWhichSound10, gWhichSound11, gBassStop, gCounter
  if voidp(gLastLoop) then
    set gLastLoop to 0
  end if
  if voidp(gCounter) or (gCounter > 9) then
    set gCounter to 1
  else
    set gCounter to gCounter + 1
  end if
  if gCounter = 2 then
    set gCounter to 5
  end if
  if gCounter = 6 then
    set gCounter to 10
  end if
  if gCounter <= 5 then
    if gCounter < 3 then
      if (gCounter = 1) and (gBassStop = 0) and (soundBusy(1) = 0) then
        sound playFile 1, gWhichSound1
      end if
      if (gCounter = 2) and not (gWhichSound3 = EMPTY) and (soundBusy(4) = 0) then
        sound playFile 4, gWhichSound3
      end if
    else
      if (gCounter = 3) and not (gWhichSound4 = EMPTY) and (soundBusy(5) = 0) then
        sound playFile 5, gWhichSound4
      end if
      if (gCounter = 4) and not (gWhichSound5 = EMPTY) and (soundBusy(6) = 0) then
        sound playFile 6, gWhichSound5
      end if
      if (gCounter = 5) and not (gWhichSound6 = EMPTY) and (soundBusy(7) = 0) then
        sound playFile 7, gWhichSound6
      end if
    end if
  else
    if gCounter < 8 then
      if (gCounter = 6) and not (gWhichSound7 = EMPTY) and (soundBusy(8) = 0) then
        sound playFile 8, gWhichSound7
      end if
      if (gCounter = 7) and not (gWhichSound8 = EMPTY) and (soundBusy(9) = 0) then
        sound playFile 9, gWhichSound8
      end if
    else
      if (gCounter = 8) and not (gWhichSound9 = EMPTY) and (soundBusy(10) = 0) then
        sound playFile 10, gWhichSound9
      end if
      if (gCounter = 9) and not (gWhichSound10 = EMPTY) and (soundBusy(11) = 0) then
        sound playFile 11, gWhichSound10
      end if
      if (gCounter = 10) and (the volume of sound 12 > 0) and (soundBusy(12) = 0) then
        sound playFile 12, getpn() & "Sounds:Loops:Renkgrve.aif"
      end if
    end if
  end if
end

on exitFrame
  go(the frame)
  FlashingLights()
end

on idle
  SlidersTracker()
  testSliders()
end

on testSliders
  global gSliderPos1, gSliderPos2, gSliderPos3, gSliderPos4, gBassScale, gLoopScale, gKeyboardScale, gOutputScale
  if the mouseUp = 0 then
    if the locV of sprite 3 <> gSliderPos1 then
      set gSliderPos1 to the locV of sprite 3
      set gBassScale to gSliderPos1
      set gBassScale to (259 - gBassScale) / 0.47999999999999998
      set the volume of sound 1 to gBassScale * gOutputScale / 100
      set the volume of sound 2 to gBassScale * gOutputScale / 100
    end if
    if the locV of sprite 4 <> gSliderPos2 then
      set gSliderPos2 to the locV of sprite 4
      set gLoopScale to gSliderPos2
      set gLoopScale to (259 - gLoopScale) / 0.47999999999999998
      repeat with i = 4 to 11
        set the volume of sound i to gLoopScale * gOutputScale / 100
      end repeat
    end if
    if the locV of sprite 5 <> gSliderPos3 then
      set gSliderPos3 to the locV of sprite 5
      set gKeyboardScale to gSliderPos3
      set gKeyboardScale to (259 - gKeyboardScale) / 0.47999999999999998
      set the volume of sound 3 to gKeyboardScale * gOutputScale / 100
      set the volume of sound 13 to gKeyboardScale * gOutputScale / 100
      set the volume of sound 14 to gKeyboardScale * gOutputScale / 100
      set the volume of sound 15 to gKeyboardScale * gOutputScale / 100
    end if
    if the locV of sprite 6 <> gSliderPos4 then
      set gSliderPos4 to the locV of sprite 6
      set gOutputScale to gSliderPos4
      set gOutputScale to (276 - gOutputScale) / 1.83000000000000007
      set the volume of sound 1 to gBassScale * gOutputScale / 100
      set the volume of sound 2 to gBassScale * gOutputScale / 100
      set the volume of sound 3 to gKeyboardScale * gOutputScale / 100
      set the volume of sound 13 to gKeyboardScale * gOutputScale / 100
      set the volume of sound 14 to gKeyboardScale * gOutputScale / 100
      set the volume of sound 15 to gKeyboardScale * gOutputScale / 100
      repeat with i = 4 to 11
        set the volume of sound i to gLoopScale * gOutputScale / 100
      end repeat
    end if
  end if
end

on SlidersTracker
  if the locH of sprite 3 > 182 then
    set the locH of sprite 3 to 182
  end if
  if the locV of sprite 3 > 259 then
    set the locV of sprite 3 to 259
  end if
  if the locH of sprite 4 > 234 then
    set the locH of sprite 4 to 234
  end if
  if the locV of sprite 4 > 259 then
    set the locV of sprite 4 to 259
  end if
  if the locH of sprite 5 > 286 then
    set the locH of sprite 5 to 286
  end if
  if the locV of sprite 5 > 259 then
    set the locV of sprite 5 to 259
  end if
  if the locH of sprite 3 < 182 then
    set the locH of sprite 3 to 182
  end if
  if the locV of sprite 3 < 136 then
    set the locV of sprite 3 to 136
  end if
  if the locH of sprite 4 < 234 then
    set the locH of sprite 4 to 234
  end if
  if the locV of sprite 4 < 136 then
    set the locV of sprite 4 to 136
  end if
  if the locH of sprite 5 < 286 then
    set the locH of sprite 5 to 286
  end if
  if the locV of sprite 5 < 136 then
    set the locV of sprite 5 to 136
  end if
  if the locH of sprite 6 < 461 then
    set the locH of sprite 6 to 461
  end if
  if the locV of sprite 6 < 136 then
    set the locV of sprite 6 to 136
  end if
  if the locH of sprite 6 > 461 then
    set the locH of sprite 6 to 461
  end if
  if the locV of sprite 6 > 276 then
    set the locV of sprite 6 to 276
  end if
end

on FlashingLights
  global gCounter, gBassScale, gLoopScale, gKeyboardScale, gOutputScale
  if the frameLabel = "Help" then
    exit
  end if
  if the frameLabel = "Help 1" then
    exit
  end if
  if the frameLabel = "Help 2" then
    exit
  end if
  set OnOrOff to the number of cast "Lights"
  if not (gCounter = 1) then
    if the castNum of sprite 24 = (OnOrOff + 1) then
      set the castNum of sprite 24 to OnOrOff + 3
    else
      if the castNum of sprite 24 = (OnOrOff + 2) then
        set the castNum of sprite 24 to OnOrOff + 1
      else
        if the castNum of sprite 24 = (OnOrOff + 3) then
          set the castNum of sprite 24 to OnOrOff + 0
        else
          set the castNum of sprite 24 to OnOrOff + 2
        end if
      end if
    end if
  end if
  if not ((gCounter = 2) or (gCounter = 6)) then
    if the castNum of sprite 2 = OnOrOff then
      set the castNum of sprite 2 to OnOrOff + 3
    else
      if the castNum of sprite 2 = (OnOrOff + 3) then
        set the castNum of sprite 2 to OnOrOff + 2
      else
        if the castNum of sprite 2 = (OnOrOff + 2) then
          set the castNum of sprite 2 to OnOrOff + 1
        else
          set the castNum of sprite 2 to OnOrOff
        end if
      end if
    end if
  end if
  if not ((gCounter = 3) or (gCounter = 6) or (gCounter = 7)) then
    if the castNum of sprite 47 = OnOrOff then
      set the castNum of sprite 47 to OnOrOff + 1
    else
      if the castNum of sprite 47 = (OnOrOff + 1) then
        set the castNum of sprite 47 to OnOrOff + 2
      else
        if the castNum of sprite 47 = (OnOrOff + 2) then
          set the castNum of sprite 47 to OnOrOff + 3
        else
          set the castNum of sprite 47 to OnOrOff
        end if
      end if
    end if
  end if
  if the castNum of sprite 48 = OnOrOff then
    set the castNum of sprite 48 to OnOrOff + 2
  else
    if the castNum of sprite 48 = (OnOrOff + 1) then
      set the castNum of sprite 48 to OnOrOff + 3
    else
      if the castNum of sprite 48 = (OnOrOff + 2) then
        set the castNum of sprite 48 to OnOrOff + 1
      else
        set the castNum of sprite 48 to OnOrOff
      end if
    end if
  end if
end